home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / lang_bas / mices / charcode.bas next >
BASIC Source File  |  1988-04-16  |  2KB  |  67 lines
  1.  
  2.   DEFINT A-Z: KEY OFF: COLOR 7,0: CLS
  3.  
  4.   DEF FNY(I$)=(I$ = "") OR (LEFT$(I$,1)="y") OR (LEFT$(I$,1)="Y")
  5.  
  6.   CODEV=0
  7.   CLS: LOCATE 5,10: PRINT "To determine character code, reply to"
  8.   LOCATE 6,10: PRINT "the following questions - Enter = Yes"
  9.   LOCATE 8,10: INPUT "Allow blanks ";I$
  10.   IF FNY(I$) THEN CODEV=CODEV+1
  11.   LOCATE 10,10: INPUT "Allow numbers (including decimal) ";I$
  12.   IF FNY(I$) THEN CODEV=CODEV+2
  13.   LOCATE 12,10: INPUT "Allow alphabetic characters ";I$
  14.   IF FNY(I$) THEN CODEV=CODEV+4
  15.  
  16.   IF ((CODEV AND 4) <> 0) THEN
  17.     LOCATE 14,10: INPUT "Shift all alphas to upper case ";I$
  18.     IF FNY(I$) THEN CODEV=CODEV+8
  19.   END IF
  20.  
  21.   LOCATE 14-2*((CODEV AND 4) <> 0),10: INPUT "Allow Symbols ";I$
  22.   IF FNY(I$) THEN CODEV=CODEV+16
  23.  
  24.   CLS
  25.   LOCATE 5,10: PRINT "CHAR.CODE =";CODEV
  26.  
  27.   LOCATE 8,10
  28.  
  29.   IF ((CODEV AND 1) <> 0) THEN
  30.     PRINT "Blanks are allowed"
  31.   ELSE
  32.     PRINT "Blanks are not allowed"
  33.   END IF
  34.  
  35.   LOCATE 10,10
  36.  
  37.   IF ((CODEV AND 2) <> 0) THEN
  38.     PRINT "Numbers are allowed"
  39.   ELSE
  40.     PRINT "Numbers are not allowed"
  41.   END IF
  42.  
  43.   LOCATE 12,10
  44.  
  45.   IF ((CODEV AND 4) <> 0) THEN
  46.     PRINT "Alphabetic characters are allowed"
  47.     LOCATE 14,10
  48.     IF ((CODEV AND 8) <> 0) THEN
  49.       PRINT "Lower case alphas are shifted to upper case"
  50.     ELSE
  51.       PRINT "Lower case alphas are not shifted to upper case"
  52.     END IF
  53.     LOCATE 16,10
  54.   ELSE
  55.     PRINT "Alphabetic characters are not allowed"
  56.     LOCATE 14,10
  57.   END IF
  58.  
  59.  
  60.   IF ((CODEV AND 16) <> 0) THEN
  61.     PRINT "Symbols are allowed"
  62.   ELSE
  63.     PRINT "Symbols are not allowed"
  64.   END IF
  65.  
  66.   CALL DELAY(10)
  67.